home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Internet / Macromedia ColdFusion Server 5 / coldfusion-50-win-us.exe / data1.cab / Examples / CFDOCS / exampleapps / email / reply.cfm < prev    next >
Encoding:
Text File  |  2001-06-13  |  1.6 KB  |  51 lines
  1. <CFINCLUDE TEMPLATE="_header.cfm">
  2.  
  3. <CFPOP ACTION="GETALL"
  4.        NAME="Message"
  5.        MESSAGENUMBER="#URL.Msg#"
  6.        SERVER="#Session.POPserver#"
  7.        USERNAME="#Session.Username#"
  8.        PASSWORD="#Session.Password#">
  9.  
  10. <CFSET NewBody = Message.Body>
  11. <CF_Wrap VARIABLE="NewBody" WIDTH="80">
  12. <CFSET NewBody = "> " & Replace(NewBody, Chr(10), Chr(10) & "> ", "ALL")>
  13.  
  14. <CFIF FindNoCase("Re:", Left(Trim(Message.Subject), 3)) IS 0>
  15.     <CFSET NewSubject = "Re: " & Trim(Message.Subject)>
  16. <CFELSE>
  17.     <CFSET NewSubject = Trim(Message.Subject)>
  18. </CFIF>
  19.  
  20. <FORM ACTION="send.cfm" METHOD="POST" ENCTYPE="multipart/form-data">
  21.  
  22. <CFOUTPUT QUERY="Message">
  23.  
  24. <TABLE BORDER="0" CELLPADDING="3" CELLSPACING="0">
  25. <TR>
  26.     <TD ALIGN="RIGHT"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-1"><B>To</B></FONT></TD>
  27.     <TD><INPUT TYPE="TEXT" NAME="To" VALUE="#HTMLEditFormat(Trim(Message.From))#" SIZE="30"></TD>
  28. </TR>
  29. <TR>
  30.     <TD ALIGN="RIGHT"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-1"><B>cc</B></FONT></TD>
  31.     <TD><INPUT TYPE="TEXT" NAME="cc" SIZE="30"></TD>
  32. </TR>
  33. <TR>
  34.     <TD ALIGN="RIGHT"><FONT FACE="MS Sans Serif, Helvetica" SIZE="-1"><B>Subject</B></FONT></TD>
  35.     <TD><INPUT TYPE="TEXT" NAME="Subject" VALUE="#HTMLEditFormat(NewSubject)#" SIZE="30"></TD>
  36. </TR>
  37. </TABLE>
  38.  
  39. <P><TEXTAREA NAME="MessageBody" COLS="54" ROWS="20" WRAP="VIRTUAL">#NewBody#</TEXTAREA></P>
  40.  
  41. </CFOUTPUT>
  42.  
  43. <P><FONT FACE="MS Sans Serif, Helvetica" SIZE="-1"><B>Attachment</B></FONT><BR>
  44. <INPUT TYPE="FILE" NAME="AttachFile"></P>
  45.  
  46. <INPUT TYPE="SUBMIT" VALUE="Send Message">
  47.  
  48. </FORM>
  49.  
  50.  
  51. <CFINCLUDE TEMPLATE="_footer.cfm">